# Crear muestra del 10% muestra_10pct <- datos_con_dummies %>% sample_frac(0.10) nrow(muestra_10pct) # 3 154 # 1. ACP estándar result <- PCAshiny(muestra_10pct %>% select(-id_persona))